home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / amiex / askiireq.lha / aSKII-rEQUEST / Install < prev    next >
Text File  |  1995-06-06  |  11KB  |  311 lines
  1. ;Install-Script for aSKII-rEQUEST bY SieGeL (tRSi/X-iNNOVATiON)
  2. ;$VER: Install_aSKII-rEQUEST 0.01 (06.06.95)
  3.  
  4. (COMPLETE 0)
  5. (WELCOME "Welcome to the aSKII-rEQUEST v1.00 Installationscript");
  6. (MESSAGE "This Script will install aSKII-rEQUEST V1.00 and all needed files to your System.\n\nNOTE: This Program is only useful for BBS-Systems !\n\nIf you want to install it now select Proceed\n\nor Press Abort to exit !")
  7. (SET @app-name "aSKII-rEQUEST V1.00")
  8. (SET @error-msg "WARNING: aSKII-rEQUEST iNSTALLATION sTOPPED!")
  9. (SET @default-dest "DOORS:")
  10. (SET commanddir "BBS:COMMANDS/BBSCMD/")
  11. (SET #MYBBSSYSTEMHELP
  12.  (CAT           "\nPlease choose which BBS-System you are running.\n"
  13.                 "aSKII-rEQUEST runs correct under aMIEX V3.++ or\n"
  14.                 "FAME V0.x , and detects automatically, under \n"
  15.                 "which System it would started and uses the \n"
  16.                 "right message-write functions.\n\n"
  17.         @ASKCHOICE-HELP))
  18. (SET #MYDOORDESTHELP
  19.  (CAT        "\nPlease choose a drawer where aSKII-rEQUEST should\n"
  20.                 "be installed. I recommed to create a new Drawer and\n"
  21.                 "put the Program + Icon in it, as it creates Data-\n"
  22.                 "files for every painter in the Program-Directory!\n\n"
  23.                 @ASKDIR-HELP))
  24. (SET #MYASKDOCDEST
  25.  (CAT           "\nPlease enter here a path where the Documentations\n"
  26.                 "from aSKII-rEQUEST should be installed.\n"
  27.                 "By default, this Directory points to the same dir\n"
  28.                 "where you have copied aSKII-rEQUEST.\n\n"
  29.                 @ASKDIR-HELP))
  30. (SET #MYDOCHELP
  31.  (CAT        "\nSorry, I had no time to write a German translation\n"
  32.          "of this document, so thiz time you will only find\n"
  33.                 "english documentations in this archive! \n\n"
  34.                 @ASKOPTIONS-HELP))
  35.  
  36. (SET #MYSLOTNUMBERHELP
  37.  (CAT           "\nYou were prompted to enter a Slotnumber of a User\n"
  38.                 "you wish to be available as Painter. I have decided\n"
  39.                 "to let it work with slotnumbers, so all users could\n"
  40.                 "easily change their Handles without any problems...\n\n"
  41.                 "If you have entered all your painters, enter 0 (which\n"
  42.                 "is default) and press Proceed, than the Installer\n"
  43.                 "skips to the next part of the Installation\n\n"
  44.                 @ASKNUMBER-HELP))
  45. (SET #MYSLOTNAMEHELP
  46.  (CAT        "\nYou were promted to enter a Name for the artist\n"
  47.                 "shown with the SlotNumber. You don't have to enter\n"
  48.                 "here anything, in this case aSKII-rEQUEST uses the\n"
  49.                 "original Username from the user.data. If you don't\n"
  50.                 "want this, simply enter here a different name,maybe\n"
  51.                 "including the artist's group-names etc. It's your\n"
  52.                 "own choice...\n\n"
  53.         @ASKSTRING-HELP))
  54. (SET #HELPSCREEN1
  55.  (CAT         "\nYou were now asked repeatly for a Slotnumber and\n"
  56.                    "a name for this Slot. The Slotnumber specifies the\n"
  57.                    "painters you want to have built in in aSKII-rEQUEST.\n"
  58.                    "The Names are optional fields, allowing you to enter\n"
  59.                    "different names for the artists. If you have entered\n"
  60.                    "all artists, enter '0' as Slotnumber to continue the\n"
  61.                    "Installation.\n\n"
  62.             "For more informations use the HELP-Buttons!\n\n"))
  63. (SET #NOTENOUGH
  64.  (CAT         "\nThis Door requires at least *ONE* artist to work\n\n"
  65.          "correctly, please try again the Installation!\n\n"))
  66. (SET #BULLPATHHELP
  67.  (CAT        "\nHere you choose a directory for the Output-Bull.\n"
  68.                 "This Bull contains all Requests and will be created\n"
  69.                 "later in the Directory you specify here.\n\n"
  70.                 @@ASKDIR-HELP))
  71. (SET #BULLNAMEHELP
  72.  (CAT           "\nHere you have to define a name for the Output-\n"
  73.                 "Bulletin. Default is 'ORDER.TXT', but you could\n"
  74.                 "change it to your needs...\n\n"
  75.                 @ASKSTRING-HELP))
  76. (SET #MYANSIPICHELP
  77.  (CAT        "\nHere you could choose which Ansis should be installed\n"
  78.                 "in the same dir as aSKII-rEQUEST. This Pictures are\n"
  79.                 "not needed in any way, but highly recommended to give\n"
  80.                 "the Door his nice Design :) . Of course, you could\n"
  81.                 "run aSKII-rEQUEST without this Pictures, but who\n"
  82.                 "wants to do this.... ? :)\n\n"
  83.                 @ASKOPTIONS-HELP))
  84.  
  85. ;-------------- ERSTMAL ABCHECKEN, WELCHE BBS LÄUFT ------------------------
  86.  
  87. (COMPLETE 10)
  88.  
  89. (SET BBSSYSTEM
  90.  (ASKCHOICE     (PROMPT "Please choose the BBS-System you are running:")
  91.             (HELP #MYBBSSYSTEMHELP)
  92.                 (CHOICES "FAME"
  93.                      "AMIEX")
  94.                 (DEFAULT 1)))
  95.  
  96. ;---------------- DANN ERSTMAL DAS DOOR INSTALLEN --------------------------
  97.  
  98. (COMPLETE 20)
  99.  
  100.   (SET maindest
  101.    (ASKDIR (PROMPT "Please select Destination for aSKII-rEQUEST:")
  102.            (HELP #MYDOORDESTHELP)
  103.        (DEFAULT @default-dest)))
  104.  
  105.   (SET @default-dest maindest)
  106.  
  107.   (COPYFILES (PROMPT "NOW COPYING FILE...")
  108.          (HELP @COPY-HELP)
  109.          (SOURCE "aSKII-rEQUEST")
  110.          (DEST @default-dest)
  111.          (INFOS))
  112.  
  113. ;------------- Nach und nach die Painter eingeben lassen -------------------
  114.  
  115. (COMPLETE 25)
  116.  
  117. (MESSAGE #HELPSCREEN1)
  118.  
  119. (COMPLETE 30)
  120.  
  121. (set slotnummer 1)
  122. (SET counta 1)
  123. (while(<> slotnummer 0)
  124.   (SET slotnummer
  125.    (ASKNUMBER (PROMPT ("\nPlease enter slotnumber for Artist %ld:\n\n(0 = No more artists)\n\n" counta))
  126.               (HELP #MYSLOTNUMBERHELP)
  127.               (DEFAULT 0))
  128.   )
  129.   (SET SNAME ("SLOT.%ld" counta))
  130.   (SET S2NAM ("SHOWN_AS.%ld" counta))
  131.   (SET SLOTNUMBA (cat slotnummer))
  132.   (IF (<> slotnummer 0)
  133.     (
  134.     (TOOLTYPE (DEST (tackon @default-dest "aSKII-rEQUEST"))
  135.      (SETTOOLTYPE SNAME SLOTNUMBA)
  136.      (NOPOSITION))
  137.  
  138.     (SET slotname
  139.      (ASKSTRING (PROMPT ("\nArtist-Nr.:%ld\n\nPlease enter name for Artist with slot #%ld\n\n(No entry = uses name from user.data)\n\n" counta slotnummer))
  140.                 (HELP #MYSLOTNAMEHELP)))
  141.  
  142.      (IF (<> slotname "")
  143.       (
  144.       (TOOLTYPE (DEST (tackon @default-dest "aSKII-rEQUEST"))
  145.        (SETTOOLTYPE S2NAM slotname)
  146.        (NOPOSITION))
  147.       ))
  148.     )
  149.     (
  150.     (IF (= counta 1) (ABORT #NOTENOUGH))
  151.     ))
  152.   (SET counta (+ counta 1))
  153.  )
  154.  
  155. ;-------- Nu wird noch nach dem Output-Path und Namen gesucht --------------
  156.  
  157. (COMPLETE 35)
  158.  
  159. (SET BULLPATH
  160.  (ASKDIR (PROMPT ("Please choose the Directory for the Bulletin:"))
  161.       (HELP #BULLPATHHELP)
  162.      (DEFAULT @default-dest)))
  163.  
  164. (COMPLETE 40)
  165.  
  166. (SET BULLNAME
  167.  (ASKSTRING (PROMPT ("And the Filename of the Bulletin please :\n\n"))
  168.             (HELP #BULLNAMEHELP)
  169.             (DEFAULT "ORDER.TXT")))
  170.  
  171. (SET BULL (tackon BULLPATH BULLNAME))
  172.  
  173. (TOOLTYPE (DEST (tackon @default-dest "aSKII-rEQUEST"))
  174.  (SETTOOLTYPE "OUTPUT_BULL" BULL)
  175.  (NOPOSITION))
  176.  
  177. ;------------ Nu kommen die ganzen ANSI-Pictures anne Reihe ----------------
  178.  
  179. (SET pictures
  180.  (ASKOPTIONS (PROMPT "Please choose which ANSIs you want to install.\n\nThey are not needed but highly recommended!\n\n")
  181.              (HELP #MYANSIPICHELP)
  182.              (CHOICES "mAIN mENU        (ASKII-MAIN.TXT)"
  183.                       "eNTER rEQUEST    (ASKII-ENTER.TXT)"
  184.                       "sHOW aRTISTS     (ASKII-LIST.TXT)"
  185.                       "dELETE rEQUESTS  (ASKII-DELETE.TXT)")
  186.              (DEFAULT 15)))
  187.  
  188. (IF (IN pictures 0)
  189.     (COPYFILES (PROMPT "NOW COPYING FILE...")
  190.            (HELP @COPY-HELP)
  191.            (SOURCE "aSKII-MAIN.TXT")
  192.            (DEST @default-dest)
  193.            (INFOS)))
  194. (IF (IN pictures 1)
  195.     (COPYFILES (PROMPT "NOW COPYING FILE...")
  196.            (HELP @COPY-HELP)
  197.            (SOURCE "aSKII-ENTER.TXT")
  198.            (DEST @default-dest)
  199.            (INFOS)))
  200. (IF (IN pictures 2)
  201.     (COPYFILES (PROMPT "NOW COPYING FILE...")
  202.            (HELP @COPY-HELP)
  203.            (SOURCE "aSKII-LIST.TXT")
  204.            (DEST @default-dest)
  205.            (INFOS)))
  206. (IF (IN pictures 3)
  207.     (COPYFILES (PROMPT "NOW COPYING FILE...")
  208.            (HELP @COPY-HELP)
  209.            (SOURCE "aSKII-DELETE.TXT")
  210.            (DEST @default-dest)
  211.            (INFOS)))
  212.  
  213. ;----------------- JETZT DIE DOC-FILES + HISTORY ---------------------------
  214.  
  215. (COMPLETE 60)
  216.  
  217. (SET docdest
  218.  (ASKDIR (PROMPT "\nPlease select Destination for the Documentation:")
  219.      (HELP #MYASKDOCDEST)
  220.      (DEFAULT @default-dest)))
  221.  
  222. (SET sprachen
  223.  (ASKOPTIONS (PROMPT "Please choose which parts of the Documentation\n\nshould be installed:")
  224.          (HELP #MYDOCHELP)
  225.          (CHOICES "English"
  226.               "History")
  227.          (DEFAULT 3)))
  228.  
  229. (IF (IN sprachen 0)
  230.     (COPYFILES (PROMPT "NOW COPYING FILE...")
  231.            (HELP @COPY-HELP)
  232.            (SOURCE "aSKII-rEQUEST.GUIDE")
  233.            (DEST docdest)
  234.            (INFOS)))
  235.  
  236. (IF (IN sprachen 1)
  237.     (COPYFILES (PROMPT "NOW COPYING FILE...")
  238.            (HELP @COPY-HELP)
  239.            (SOURCE "aSKII-rEQUEST.history")
  240.            (DEST docdest)
  241.            (INFOS)))
  242.  
  243.  
  244. ;----------- JETZT NUR NOCH DIE BBS-SPEZIFISCHEN DINGE ----------------------
  245.  
  246. (SET MYNAME
  247.  (ASKSTRING (PROMPT "Please enter the Name of aSKII-rEQUEST\n\nto start it from your BBS :\n")
  248.             (HELP @ASKSTRING-HELP)
  249.             (DEFAULT "ASKII")))
  250.  
  251. (IF (= MYNAME "") (SET BBSNAME "ASKII.INFO") (SET BBSNAME ("%s.INFO" MYNAME)))
  252.  
  253. ;
  254. ;-------------------- AMIEX-ICON INSTALLIEREN -----------------------------
  255.  
  256. (IF (= BBSSYSTEM 1)
  257.  (
  258.   (COMPLETE 80)
  259.   (SET comdir
  260.    (ASKDIR (PROMPT "Please select destination for aSKII-rEQUEST /X Icon:")
  261.        (HELP @ASKDIR-HELP)
  262.        (DEFAULT commanddir)))
  263.  
  264.    (COPYFILES (PROMPT "COPYING FILE...")
  265.           (HELP @COPY-HELP)
  266.           (SOURCE "BBS/COMMANDS/BBSCMD/ASKII.INFO")
  267.               (DEST comdir)
  268.               (NEWNAME BBSNAME)
  269.               (FILES))
  270.  
  271.   (COMPLETE 90)
  272.  
  273.   (SET TTYPE
  274.    (ASKNUMBER (PROMPT "Enter the Access-Level required to start\n\naSKII-rEQUEST in Amiex :")
  275.               (HELP @ASKNUMBER-HELP)
  276.               (DEFAULT 50)))
  277.  
  278.   (SET AXSLEVEL (cat TTYPE))
  279.   (SET PRGDIR (tackon @default-dest "aSKII-rEQUEST"))
  280.   (TOOLTYPE (DEST (tackon comdir MYNAME))
  281.    (SETTOOLTYPE "ACCESS" AXSLEVEL)
  282.    (SETTOOLTYPE "LOCATION" PRGDIR)
  283.    (NOPOSITION))
  284.   )
  285. ;---------------------------- FAME INSTALLATION -----------------------------
  286.  (
  287.  
  288.  (SET commanddir
  289.   (ASKDIR (PROMPT "Please choose the Directory where you want\n to save the Door-Definition :")
  290.           (HELP @ASKDIR-HELP)
  291.           (DEFAULT "FAME:SETTINGS/DOORS/BBSCMD/")))
  292.  
  293.  (COPYFILES (PROMPT "COPYING FILE...")
  294.             (HELP @COPY-HELP)
  295.             (SOURCE "FAME/SETTINGS/DOORS/BBSCMD/ASKII")
  296.             (DEST commanddir)
  297.             (NEWNAME MYNAME)
  298.             (FILES))
  299.  
  300.  (SET #GO_IN_SYSED
  301.   (CAT        "\nNow please start the System-Editor and load in the\n"
  302.                  "Door-Definition saved in the directory:\n\n"
  303.                  commanddir
  304.                  "\n\nand adjust the Path to aSKII-rEQUEST to this path:\n\n"
  305.                  @default-dest))
  306.  
  307.  (MESSAGE #GO_IN_SYSED)
  308.  ))
  309.  
  310. (EXIT "\n\nAnother Tool comming from\n\nthe \"REAL\" (tRSi/X-iNNOVATiON)")
  311.